Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue35/jvexcel/JVEXCEL.ZIP/ExcelDemo/ExcelDem.dfm/ExcelDem.txt

Text File | 1998-04-12 | 7.2 KB | 370 lines

object ExcelDemoForm: TExcelDemoForm
  Left = 0
  Top = 48
  Width = 640
  Height = 440
  Caption = 'ExcelDemoForm'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 8
    Top = 120
    Width = 233
    Height = 281
    Style = bsRaised
  end
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 233
    Height = 105
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 12
    Top = 16
    Width = 222
    Height = 20
    Caption = 'Excel Application Functions'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 14
    Top = 122
    Width = 215
    Height = 20
    Caption = 'Excel WorkBook Functions'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 18
    Top = 214
    Width = 75
    Height = 13
    Caption = 'Read Password'
    Transparent = True
  end
  object TLabel
    Left = 24
    Top = 280
    Width = 3
    Height = 13
  end
  object Label4: TLabel
    Left = 18
    Top = 254
    Width = 74
    Height = 13
    Caption = 'Write Password'
    Transparent = True
  end
  object Panel1: TPanel
    Left = 248
    Top = 7
    Width = 369
    Height = 369
    BevelInner = bvLowered
    BevelWidth = 3
    Color = 16744576
    TabOrder = 11
    object Label5: TLabel
      Left = 75
      Top = 16
      Width = 234
      Height = 24
      Caption = 'Excel WorkSheet Functions'
      Color = 16744576
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 107
      Top = 200
      Width = 22
      Height = 13
      Caption = 'Cells'
    end
    object Label7: TLabel
      Left = 100
      Top = 222
      Width = 37
      Height = 13
      Caption = 'Formula'
    end
    object Button8: TButton
      Left = 19
      Top = 56
      Width = 75
      Height = 25
      Caption = 'Insert Data'
      TabOrder = 0
      OnClick = Button8Click
    end
    object StringGrid1: TStringGrid
      Left = 131
      Top = 48
      Width = 200
      Height = 69
      Color = clWhite
      ColCount = 3
      DefaultRowHeight = 15
      FixedCols = 0
      RowCount = 4
      FixedRows = 0
      GridLineWidth = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      ScrollBars = ssNone
      TabOrder = 1
    end
    object Button10: TButton
      Left = 19
      Top = 144
      Width = 75
      Height = 25
      Caption = 'Set Font'
      TabOrder = 2
      OnClick = Button10Click
    end
    object Button12: TButton
      Left = 83
      Top = 304
      Width = 75
      Height = 25
      Caption = 'Print Preview'
      TabOrder = 3
      OnClick = Button12Click
    end
    object Button13: TButton
      Left = 171
      Top = 304
      Width = 75
      Height = 25
      Caption = 'Print'
      TabOrder = 4
      OnClick = Button13Click
    end
    object Button14: TButton
      Left = 19
      Top = 192
      Width = 75
      Height = 25
      Caption = 'Set Formula'
      TabOrder = 5
      OnClick = Button14Click
    end
    object Cellsbox: TEdit
      Left = 147
      Top = 192
      Width = 41
      Height = 21
      TabOrder = 6
      Text = 'A5:C5'
    end
    object FormulaBox: TEdit
      Left = 147
      Top = 216
      Width = 121
      Height = 21
      TabOrder = 7
      Text = '=SUM(A1:A4)'
    end
  end
  object Button1: TButton
    Left = 24
    Top = 40
    Width = 89
    Height = 25
    Caption = 'Start Excel App'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 18
    Top = 154
    Width = 97
    Height = 25
    Caption = 'Open WorkBook'
    TabOrder = 1
    OnClick = Button2Click
  end
  object AppVisibleCheckBox: TCheckBox
    Left = 24
    Top = 72
    Width = 97
    Height = 17
    Hint = 'Hides or shows Excel'
    Caption = 'Visible'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = AppVisibleCheckBoxClick
  end
  object Button3: TButton
    Left = 520
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 3
    OnClick = Button3Click
  end
  object AlertsCheckBox: TCheckBox
    Left = 104
    Top = 72
    Width = 129
    Height = 17
    Hint =
      'Shows/Hides excel prompts such as...'#10#13'Are you sure you want to d' +
      'elete this worksheet?'
    Caption = 'Show Excel Alerts'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = AlertsCheckBoxClick
  end
  object Button4: TButton
    Left = 136
    Top = 40
    Width = 89
    Height = 25
    Caption = 'Close Excel App'
    TabOrder = 5
    OnClick = Button4Click
  end
  object Edit1: TEdit
    Left = 18
    Top = 186
    Width = 209
    Height = 21
    TabOrder = 6
    Text = '\ExcelDemo\javtest.xls'
  end
  object Button6: TButton
    Left = 122
    Top = 154
    Width = 105
    Height = 25
    Caption = 'Save / Save As'
    TabOrder = 7
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 18
    Top = 362
    Width = 89
    Height = 25
    Caption = 'Close Workbook'
    TabOrder = 8
    OnClick = Button7Click
  end
  object Edit2: TEdit
    Left = 18
    Top = 230
    Width = 121
    Height = 21
    TabOrder = 9
  end
  object Edit3: TEdit
    Left = 18
    Top = 270
    Width = 121
    Height = 21
    TabOrder = 10
  end
  object Button5: TButton
    Left = 18
    Top = 298
    Width = 89
    Height = 25
    Caption = 'Get Active Sheet'
    TabOrder = 12
    OnClick = Button5Click
  end
  object Button9: TButton
    Left = 18
    Top = 330
    Width = 91
    Height = 25
    Caption = 'Set Active Sheet'
    TabOrder = 13
    OnClick = Button9Click
  end
  object Edit5: TEdit
    Left = 122
    Top = 314
    Width = 105
    Height = 21
    TabOrder = 14
    Text = 'Edit5'
  end
  object Button11: TButton
    Left = 400
    Top = 152
    Width = 145
    Height = 25
    Caption = 'AutoFit data in cells'
    TabOrder = 15
    OnClick = Button11Click
  end
  object ExcelBook1: TExcelBook
    FileName = 'c:\omniscrn\jaxcel'
    ExcelApp = ExcelApp1
    Left = 176
    Top = 248
  end
  object ExcelSheet1: TExcelSheet
    SheetName = 'jvSheet1'
    ExcelBook = ExcelBook1
    Left = 360
    Top = 272
  end
  object ExcelApp1: TExcelApp
    Visible = True
    ShowExcelAlerts = True
    ExcelStarted = False
    Left = 176
    Top = 48
  end
  object ExcelSheet2: TExcelSheet
    SheetName = 'james2'
    ExcelBook = ExcelBook1
    Left = 304
    Top = 296
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 456
    Top = 288
  end
end